From: Jared Finder <jared@finder.org>
Date: Wed, 19 Feb 2025 07:41:44 +0000 (+0200)
Subject: * lisp/subr.el (read-key): Add 'tab-line' (bug#76408).
X-Git-Tag: archive/raspbian/1%30.2+1-2+rpi1^2~2^2~24^2~259
X-Git-Url: https://dgit.raspbian.org/%22http://www.example.com/cgi/success/%22http:/www.example.com/cgi/success?a=commitdiff_plain;h=dbae1fc69f82ff481d1591d60a0c44cad354c3b3;p=emacs.git

* lisp/subr.el (read-key): Add 'tab-line' (bug#76408).

Backport:
(cherry picked from commit 0c8abe8bb5072c46a93585cb325c249f85f3d9c2)
---

diff --git a/lisp/subr.el b/lisp/subr.el
index 7552378a781..0394a333b44 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -3377,7 +3377,7 @@ only unbound fallback disabled is downcasing of the last event."
                                                              nil nil t)))
                  (key (aref keys 0)))
             (if (and (> (length keys) 1)
-                     (memq key '(mode-line header-line
+                     (memq key '(mode-line header-line tab-line
                                  left-fringe right-fringe)))
                 (aref keys 1)
               key)))